Исходный код

Option Explicit
Call UpdateSelObjects()
'==============================================================================
' Обновить объекты, подсвеченные выделением 
'==============================================================================
Sub UpdateSelObjects()
    Dim obj, shell, selObjects
    
    'Получить коллекцию "подсвеченных" объектов
    Set shell = ThisApplication.Shell
    Set selObjects = shell.SelObjects
    
    'Обновить объекты поочередно. 
    For Each obj in selObjects
        shell.Update obj
    Next
End Sub
'==============================================================================